home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 December / 64er_Magazin_88-12_1988_Markt__Technik_de_Side_A.d64 / patch giga-paint (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  763b  |  31 lines
  1. 100 a=a+1
  2. 110 if a=1 then load "gp2",8,1
  3. 120 if a=2 then load "gp3",8,1
  4. 130 for p=1 to 10:read a:read n
  5. 140 for i=0 to n:read d
  6. 150 poke a+i,d :next:next
  7. 160 a$="gp2":a=52:e=76:gosub200
  8. 170 a$="gp3":a=76:e=96:gosub200
  9. 180 print"sie besitzen nun giga-paint v1.2"
  10. 190 end
  11. 200 open 1,8,15,"s:"+a$ :close1
  12. 210 sys 57812 a$,8
  13. 220 poke 193,0:poke 194,a
  14. 230 poke 781,0:poke 782,e
  15. 240 poke 780,193:sys65496:return
  16. 300 data 15856,  3,162,  0,165, 70
  17. 310 data 15905,  1,169,  0
  18. 320 data 19408,  1,162,  0
  19. 330 data 19599,  0,234
  20. 340 data 19928,  0, 12
  21. 350 data 19954,  1, 48,205
  22. 360 data 20390, 12,229, 61,176, 11,138
  23. 370 data           101,184,176,  4,197
  24. 380 data            50,144,  2
  25. 390 data 16093,  2, 76,246, 95
  26. 400 data 24546, 27,0,0,0,0,0,0,0,0,0,0
  27. 410 data           0,0,0,0,0,0,0,0,0,0
  28. 420 data           141, 77, 67,169,  0
  29. 430 data           133, 30, 96
  30. 440 data 19439,  2, 76,245, 75
  31.